function setuserdata(ctl)
%-----------------------------------------------------------------------
% set the data as userdata in datac_main (the main window) so we can access it
% in the listcontrol box.....
htag = findobj('Tag', 'datac_main');
if(~ishandle(htag))
   error('setuserdata: Unable to find datac_main?');
   return;
end
set(htag, 'UserData', ctl);
return

